home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / mac / MSTR / PROGRAM / MOVIE2.DIR / 00040.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  644 b   |  28 lines
  1. on checkvideo
  2.   global videonum
  3.   set videonum to 0
  4.   set mv to mouseV() - 245
  5.   repeat with n = 1 to 5
  6.     if (mv >= 1) and (mv <= 50) then
  7.       set videonum to n
  8.     end if
  9.     set mv to mv - 39
  10.   end repeat
  11.   rollovervideo(videonum)
  12. end
  13.  
  14. on rollovervideo videonum
  15.   if videonum = 0 then
  16.     exit
  17.   end if
  18.   puppetSprite(4, 1)
  19.   set the type of sprite 4 to 1
  20.   set the ink of sprite 4 to 0
  21.   set the foreColor of sprite 4 to 255
  22.   set the backColor of sprite 4 to 0
  23.   set the castNum of sprite 4 to the number of member "selectedVideo"
  24.   set the locH of sprite 4 to 26
  25.   set the locV of sprite 4 to 208 + (videonum * 39)
  26.   updateStage()
  27. end
  28.